home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TR-XTRB2.ZIP / XTURBO.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-01-01  |  5KB  |  201 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.     String   STRING008
  32.     String   STRING009
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     If (!Exist(PPEPath() + "xturbo.pcb")) FCreate 4, PPEPath() + "xturbo.pcb", 2, 0
  37.     FPutLn 4, "@X08---------------@X07  @X08---@X07 @X08--@X07                                                        "
  38.     FPutLn 4, " @X0BT@X03urbo@X0B L@X03ogon@X07                                                                   "
  39.     FPutLn 4, "@X08-----------------@X07 @X08------@X07                                                       "
  40.     FPutLn 4, " "
  41.     FPutLn 4, "  @X0Fa."
  42.     FPutLn 4, "  @X0Fb."
  43.     FPutLn 4, "                                                                               "
  44.     FPutLn 4, "@X08------------ --------  ------@X07                                                  "
  45.     FPutLn 4, "@X3Fi@X03nput@X0D @X3Fc@X03hoice@X08:@X07 @X88_@X07                                                                "
  46.     FPutLn 4, "@X08---------------------@X07 @X08---@X07 @X08 ---@X07                                                 "
  47.     FPutLn 4, ""
  48.     FClose 4
  49.     If (Exist(PPEPath() + "xturbo.cfg")) Delete PPEPath() + "xturbo.cfg"
  50.     FCreate 3, PPEPath() + "xturbo.cfg", 2, 0
  51.     FPutLn 3, "30"
  52.     FPutLn 3, "6 5"
  53.     FPutLn 3, "6 6"
  54.     FPutLn 3, "YES"
  55.     FPutLn 3, "@X3B"
  56.     FPutLn 3, "@X08"
  57.     FPutLn 3, ""
  58.     FPutLn 3, "--- (XTurbo Version 2.o2 configuration file!) -------------------------------"
  59.     FPutLn 3, " Line One  : The minimum security level to run the program. Users with access"
  60.     FPutLn 3, "             levels higher than this number will go straight into displaying"
  61.     FPutLn 3, "             the file Xpert.TXT."
  62.     FPutLn 3, " Line Two  : The x/y co-ordinates of the `no turbo login'"
  63.     FPutLn 3, " Line Three: The x/y co-ordinates of the `yes turbo login'"
  64.     FPutLn 3, " Line Four : If `YES' the ppe will see if the user has the expert mode on."
  65.     FPutLn 3, "             If he/she does, it will go straight into displaying the file"
  66.     FPutLn 3, "             Xpert.TXT"
  67.     FPutLn 3, " Line Five : The PCB colour code for the selected litebar"
  68.     FPutLn 3, " Line Six  : The PCB colour code for the non-selected litebar"
  69.     FPutLn 3, ""
  70.     FClose 3
  71.     If (!Exist(PPEPath() + "xturbo.cfg")) Log "@X0CERROR! XTURBO.PPE COULDNT FIND XTURBO.CFG!", 1
  72.     End
  73.     GetUser
  74.     STRING003 = ReadLine(PPEPath() + "xturbo.CFG", 1)
  75.     INTEGER001 = STRING003
  76.     STRING005 = ReadLine(PPEPath() + "xturbo.cfg", 2)
  77.     Tokenize STRING005
  78.     INTEGER002 = GetToken()
  79.     INTEGER003 = GetToken()
  80.     STRING006 = ReadLine(PPEPath() + "xturbo.cfg", 3)
  81.     Tokenize STRING006
  82.     INTEGER004 = GetToken()
  83.     INTEGER005 = GetToken()
  84.     STRING007 = ReadLine(PPEPath() + "xturbo.cfg", 4)
  85.     While ((Upper(STRING007) == "YES")) GetUser
  86.     If (U_Expert) Goto LABEL006
  87.     STRING008 = ReadLine(PPEPath() + "xturbo.cfg", 5)
  88.     STRING009 = ReadLine(PPEPath() + "xturbo.cfg", 6)
  89.     STRING001 = " No turbo login!      "
  90.     STRING002 = " Yes turbo login!     "
  91.     Print "@CLS@@POFF@"
  92.     DispFile PPEPath() + "xturbo.PCB", 1
  93.     :LABEL001
  94.     AnsiPos INTEGER002, INTEGER003
  95.     Print Upper(STRING008) + STRING001
  96.     AnsiPos INTEGER004, INTEGER005
  97.     Print Upper(STRING009) + STRING002
  98.     Color 0
  99.     Print " "
  100.     Backup 1
  101.     :LABEL002
  102.     STRING004 = ""
  103.     While ((STRING004 == "")) STRING004 = Inkey()
  104.     If ((Upper(STRING004) == "DOWN") || (STRING004 == "2")) Goto LABEL003
  105.     If ((Upper(STRING004) == "UP") || (STRING004 == "8")) Goto LABEL003
  106.     If (STRING004 == Chr(13)) Goto LABEL005
  107.     If (Upper(STRING004) == "A") Goto LABEL007
  108.     If (Upper(STRING004) == "B") Goto LABEL008
  109.     Goto LABEL002
  110.     :LABEL003
  111.     AnsiPos INTEGER002, INTEGER003
  112.     Print STRING009 + STRING001
  113.     AnsiPos INTEGER004, INTEGER005
  114.     Print STRING008 + STRING002
  115.     Color 0
  116.     Print " "
  117.     Backup 1
  118.     :LABEL004
  119.     STRING004 = ""
  120.     While ((STRING004 == "")) STRING004 = Inkey()
  121.     If ((Upper(STRING004) == "DOWN") || (STRING004 == "2")) Goto LABEL001
  122.     If ((Upper(STRING004) == "UP") || (STRING004 == "8")) Goto LABEL001
  123.     If (STRING004 == Chr(13)) Goto LABEL006
  124.     If (Upper(STRING004) == "A") Goto LABEL005
  125.     If (Upper(STRING004) == "B") Goto LABEL006
  126.     Goto LABEL004
  127.     :LABEL005
  128.     Print "@PON@@CLS@"
  129.     If (Exist(PPEPath() + "logon.txt")) DispFile PPEPath() + "LOGON.TXT", 1
  130.     End
  131.     :LABEL006
  132.     Print "@PON@@CLS@"
  133.     If (Exist(PPEPath() + "xpert.txt")) DispFile PPEPath() + "XPERT.TXT", 1
  134.     End
  135.     :LABEL007
  136.     AnsiPos 15, 9
  137.     Print "@X0Fa"
  138.     Delay 5
  139.     Goto LABEL005
  140.     :LABEL008
  141.     AnsiPos 15, 9
  142.     Print "@X0Fb"
  143.     Delay 5
  144.     Goto LABEL006
  145.  
  146. ;------------------------------------------------------------------------------
  147. ;
  148. ; Usage report (before postprocessing)
  149. ;
  150. ; ■ Statements used :
  151. ;
  152. ;    3       End
  153. ;    2       Color 
  154. ;    17      Goto 
  155. ;    17      Let 
  156. ;    11      Print 
  157. ;    19      If 
  158. ;    3       DispFile 
  159. ;    2       FCreate 
  160. ;    2       FClose 
  161. ;    30      FPutLn 
  162. ;    2       GetUser
  163. ;    1       Delete 
  164. ;    1       Log 
  165. ;    2       Delay 
  166. ;    2       Tokenize 
  167. ;    6       AnsiPos 
  168. ;    2       Backup 
  169. ;
  170. ;
  171. ; ■ Functions used :
  172. ;
  173. ;    21      +
  174. ;    17      ==
  175. ;    2       !
  176. ;    4       ||
  177. ;    11      Upper()
  178. ;    2       Chr()
  179. ;    2       Inkey()
  180. ;    17      PPEPath()
  181. ;    6       ReadLine()
  182. ;    4       GetToken()
  183. ;    5       Exist()
  184. ;
  185. ;------------------------------------------------------------------------------
  186. ;
  187. ; Analysis flags : No flag
  188. ;
  189. ;------------------------------------------------------------------------------
  190. ;
  191. ; Postprocessing report
  192. ;
  193. ;    0       For/Next
  194. ;    0       While/EndWhile
  195. ;    0       If/Then or If/Then/Else
  196. ;    0       Select Case
  197. ;
  198. ;------------------------------------------------------------------------------
  199. ;                 AEGiS Corp - Break the routines, code against the machines!
  200. ;------------------------------------------------------------------------------
  201.